Pauses until the user presses a keyboard key.

GetKeyDown(VAR aCode : INTEGER);

Draws a line from a fixed point specified by x1, y1 to a mouse defined point. x2, y2 are not returned until the mouse is clicked

GetPtL(x1, y1 : REAL;  VAR x2, y2 : REAL);

Returns x, y coordinates by using the mouse. x, y are not returned until the mouse is clicked.

GetPt(VAR x, y : REAL);

Allows the user to create a line using the mouse.

GetLine(VAR x1, y1, x2, y2 : REAL);

Allows the user to create a rectangle using the mouse.

GetRect(VAR x1, y1, x2, y2 : REAL);